100 IFFL=0THENFL=1:LOAD"DIRECTORY-LOAD",8,1
110 PRINT"[147]                                        ";
120 PRINT"               DISK-MENUE               ";
130 PRINT"         [154]WRITTEN BY UDO WOEHLER         ";
140 PRINT"                                        ";
150 PRINT"BITTE WARTEN"
160 POKE53281,6:POKE53280,14
170 DIMA$(143)
180 SYS49152,,ZH%,A$,,,,,"P"
190 ZH=ZH%-1:IFZH=-1THENPRINT"[147]";:END
200 AN=0
210 E=AN+18:A=AN
220 IFE>ZHTHENE=ZH
230 BU$=CHR$(E-A+65)
240 PRINT"[147]               DISK-MENUE"
250 PRINT"         [154]WRITTEN BY UDO WOEHLER"
260 PRINT"  ZUM STARTEN BUCHSTABE (A-";BU$;") DRUECKEN"
270 IFZH>19THENPRINT"<CR> WEITERE FILES";
280 PRINT"[154]"
290 FORT=ATOE:PRINT:PRINT"         ";CHR$(65+T-A);")  ";A$(T);:NEXT
300 GETS$:IFS$=""THEN300
310 IFS$=CHR$(13)THENAN=AN+19:IFAN>ZHTHENAN=0
320 IFS$=CHR$(13)THEN210
330 IFS$<"A"ANDS$>"S"THEN300
340 IFAN+ASC(S$)-65>ZHTHEN300
350 AN=AN+ASC(S$)-65
360 PRINT"[147]LOADING ";A$(AN)
370 NA$=""
380 FORT=16TO1STEP-1:IFMID$(A$(AN),T,1)<>" "THENNA$=LEFT$(A$(AN),T)+"*":T=0
390 NEXT
400 OPEN1,8,2,NA$+",P,R"
410 GET#1,A$:GET#1,B$:CLOSE1:AD=ASC(B$+CHR$(0))*256+ASC(A$+CHR$(0))
420 PO=0:IFAD<>2049ANDAD<>2048THENPO=1
430 IF AD<828 THENPO=2
440 PRINT"LOAD"CHR$(34);NA$;CHR$(34)",8,1"
450 IFPO=2THENPRINT"":POKE198,1:POKE631,13:END
460 IFPO=1THENPRINT"NEW":PRINT"SYS"AD""
470 IFPO=1THENPOKE198,4:POKE631,13:POKE632,13:POKE633,154:POKE634,13:END
480 PRINT"RUN"
490 POKE198,3:POKE631,13:POKE632,154:POKE633,13
500 END